/* Copyright  (c) 2002 Graz University of Technology. All rights reserved.
 *
 * Redistribution and use in  source and binary forms, with or without 
 * modification, are permitted  provided that the following conditions are met:
 *
 * 1. Redistributions of  source code must retain the above copyright notice,
 *    this list of conditions and the following disclaimer.
 *
 * 2. Redistributions in  binary form must reproduce the above copyright notice,
 *    this list of conditions and the following disclaimer in the documentation
 *    and/or other materials provided with the distribution.
 *  
 * 3. The end-user documentation included with the redistribution, if any, must
 *    include the following acknowledgment:
 * 
 *    "This product includes software developed by IAIK of Graz University of
 *     Technology."
 * 
 *    Alternately, this acknowledgment may appear in the software itself, if 
 *    and wherever such third-party acknowledgments normally appear.
 *  
 * 4. The names "Graz University of Technology" and "IAIK of Graz University of
 *    Technology" must not be used to endorse or promote products derived from 
 *    this software without prior written permission.
 *  
 * 5. Products derived from this software may not be called 
 *    "IAIK PKCS Wrapper", nor may "IAIK" appear in their name, without prior 
 *    written permission of Graz University of Technology.
 *  
 *  THIS SOFTWARE IS PROVIDED "AS IS" AND ANY EXPRESSED OR IMPLIED
 *  WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 *  WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 *  PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE LICENSOR BE
 *  LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY,
 *  OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
 *  PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA,
 *  OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON
 *  ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
 *  OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 *  OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 *  POSSIBILITY  OF SUCH DAMAGE.
 */

package demo.pkcs.pkcs11;

import java.io.ByteArrayOutputStream;
import java.io.FileInputStream;
import java.io.InputStream;
import java.io.PrintWriter;
import java.math.BigInteger;
import java.util.Arrays;

import iaik.pkcs.pkcs11.Mechanism;
import iaik.pkcs.pkcs11.Module;
import iaik.pkcs.pkcs11.Session;
import iaik.pkcs.pkcs11.Slot;
import iaik.pkcs.pkcs11.Token;
import iaik.pkcs.pkcs11.TokenException;
import iaik.pkcs.pkcs11.objects.DES3SecretKey;
// import iaik.security.provider.IAIK;



/**
 * This demo program uses a PKCS#11 module to MAC a given file and test
 * if the MAC can be verified.
 *
 * @author <a href="mailto:Karl.Scheibelhofer@iaik.at"> Karl Scheibelhofer </a>
 * @version 0.1
 * @invariants
 */
public class MAC {

  static PrintWriter output_;

  static {
    try {
      //output_ = new PrintWriter(new FileWriter("Encrypt_output.txt"), true);
      output_ = new PrintWriter(System.out, true);
    } catch (Throwable thr) {
      thr.printStackTrace();
      output_ = new PrintWriter(System.out, true);
    }
  }

  public static void main(String[] args) {
    if (args.length != 3) {
      printUsage();
      System.exit(1);
    }

    try {
        // Security.addProvider(new IAIK());

        Module pkcs11Module = Module.getInstance(args[0]);
        pkcs11Module.initialize(null);

        Slot[] slots = pkcs11Module.getSlotList(Module.SlotRequirement.TOKEN_PRESENT);

        if (slots.length == 0) {
          output_.println("No slot with present token found!");
          System.exit(0);
        }

        Slot selectedSlot = slots[0];
        Token token = selectedSlot.getToken();

        Session session =
            token.openSession(Token.SessionType.SERIAL_SESSION, Token.SessionReadWriteBehavior.RO_SESSION, null, null);

        // login user
        //session.login(Session.UserType.USER, args[1].toCharArray());

        output_.println("################################################################################");
        output_.println("generate secret MAC key");

        Mechanism keyMechanism = Mechanism.DES3_KEY_GEN;
        DES3SecretKey secretMACKeyTemplate = new DES3SecretKey();
        secretMACKeyTemplate.getSign().setBooleanValue(Boolean.TRUE);
        secretMACKeyTemplate.getVerify().setBooleanValue(Boolean.TRUE);

        DES3SecretKey secretMACKey = (DES3SecretKey) session.generateKey(keyMechanism, secretMACKeyTemplate);

/*
        GenericSecretKey secretMACKeyTemplate = new GenericSecretKey();
        secretMACKeyTemplate.getSign().setBooleanValue(Boolean.TRUE);
        secretMACKeyTemplate.getVerify().setBooleanValue(Boolean.TRUE);
        secretMACKeyTemplate.getToken().setBooleanValue(Boolean.FALSE);

        // generate some bytes random data that we can use as test key
        byte[] randomData = session.generateRandom(16);

        secretMACKeyTemplate.getValue().setByteArrayValue(randomData);
        secretMACKeyTemplate.getValueLen().setLongValue(new Long(randomData.length));

        GenericSecretKey secretMACKey = (GenericSecretKey) session.createObject(secretMACKeyTemplate);
*/

        output_.println("################################################################################");

        output_.println("################################################################################");
        output_.println("MACing data from file: " + args[2]);

        InputStream dataInputStream = new FileInputStream(args[2]);

        //be sure that your token can process the specified mechanism
        Mechanism signatureMechanism = Mechanism.SHA_1_HMAC;
        // initialize for signing
        session.signInit(signatureMechanism, secretMACKey);

        byte[] dataBuffer = new byte[1024];
        int bytesRead;
        ByteArrayOutputStream streamBuffer = new ByteArrayOutputStream();

        // feed in all data from the input stream
        while ((bytesRead = dataInputStream.read(dataBuffer)) >= 0) {
          streamBuffer.write(dataBuffer, 0, bytesRead);
        }
        Arrays.fill(dataBuffer, (byte) 0); // ensure that no data is left in the memory
        streamBuffer.flush();
        streamBuffer.close();
        dataInputStream.close();
        byte[] rawData = streamBuffer.toByteArray();

        byte[] macValue = session.sign(rawData);

        output_.println("The MAC value is: " + new BigInteger(1, macValue).toString(16));

        output_.println("################################################################################");

        output_.println("################################################################################");
        output_.print("verification of the MAC... ");

        dataInputStream = new FileInputStream(args[2]);

        // initialize for verification
        session.verifyInit(signatureMechanism, secretMACKey);

        streamBuffer = new ByteArrayOutputStream();

        // feed in all data from the input stream
        while ((bytesRead = dataInputStream.read(dataBuffer)) >= 0) {
          streamBuffer.write(dataBuffer, 0, bytesRead);
        }
        Arrays.fill(dataBuffer, (byte) 0); // ensure that no data is left in the memory
        streamBuffer.flush();
        streamBuffer.close();
        dataInputStream.close();
        rawData = streamBuffer.toByteArray();

        try {
          session.verify(rawData, macValue); // throws an exception upon unsuccessful verification
          output_.println("successful");
        } catch (TokenException ex) {
          output_.println("FAILED: " + ex.getMessage());
        }

        output_.println("################################################################################");

        session.closeSession();
        pkcs11Module.finalize(null);

    } catch (Throwable thr) {
      thr.printStackTrace();
    }
  }

  public static void printUsage() {
    output_.println("Usage: MAC <PKCS#11 module> <user-PIN> <file to be MACed>");
    output_.println(" e.g.: MAC pk2priv.dll password data.dat");
    output_.println("The given DLL must be in the search path of the system.");
  }

}